00100	COMPILE;
00200	INSTRUMENT GLIS2;
00300	OSCIL(P4,MAG/P2,P5);
00400	OSCIL(MAG*P7-MAG*P3, MAG/P2,P10);
00500	OSCIL(U2,MAG/P8,P9);
00600	OSCIL(U1,MAG*P3+U3,P6);
00700	OUTA←OUTA+U4; END;
00800	INSTRUMENT GLISS;
00900	OSCIL(P4,MAG/P2,P5);
01000	OSCIL(P7*MAG-MAG*P3,MAG/P8,P9);
01100	OSCIL(U1,U2+MAG*P3,P6);
01200	OUTA←OUTA+U3;END;
01300	INSTRUMENT FM;
01400	OSCIL(P4,MAG/P2,P5);
01500	INTRP(P9*P7*MAG,P9*P8*MAG,P10);
01600	OSCIL(U2,P9*MAG,P11);
01700	OSCIL(U1,U3+P3*MAG,P6);
01800	OUTA←OUTA+U4; END;
01900	
01910	INSTRUMENT FM2;
01925	OSCIL(P4,MAG/P2,P5);
01940	INTRP(P9*P7*MAG,P9*P8*MAG,P10);
01955	OSCIL(U2,P9*MAG,P11);
01970	OSCIL(U1,U3+P3*MAG,P6);
01985	OUTA←OUTA+U4; END;
02000	INSTRUMENT NOISE;
02100	OSCIL(P4,MAG/P2,P5);
02200	RANDH(MAG*P7,MAG*P8);
02300	OSCIL(U1,MAG*P3+U2,P6);
02400	OUTA←OUTA+U3; END;
02410	
02425	INSTRUMENT NOISX;
02440	OSCIL(P4,MAG/P2,P5);
02447	OSCIL(MAG*P9,MAG/P10,P11);
02455	RANDH(U2+MAG*P7,MAG*P8);
02470	OSCIL(U1,MAG*P3+U3,P6);
02485	OUTA←OUTA+U4; END;
02500	FINISH;
02600	
02700	ARRAY F5,F6,F7(512); <F1 is already present.
02800	SEG(F5);0,1  1,7  .7,12  .2,20  0,100;<Envelope
02900	SEG(F6);0,1  0,60  1,100; <Slope
03000	SYNTH(F1);1 1 3 .3  5 .2  7 .001 999;
03100	SEG(F7);0 1 1 100;
03200	
03300	
03400	PLAY;GLIS2 0 .5 100 2000 F5 F1 P3+5 .5 F6 F7;FINISH;
λ